home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Biology / Dinosaurs / card_9232.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  4.3 KB  |  211 lines
  1. -- card: 9232 from stack: in
  2. -- bmap block id: 6936
  3. -- flags: 0000
  4. -- background id: 2611
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=146 top=241 right=318 bottom=232
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: PteroButton
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect scroll up
  23.   go to stack Dinosaurs
  24. end mouseUp
  25.  
  26.  
  27. -- part 6 (field)
  28. -- low flags: 01
  29. -- high flags: 2000
  30. -- rect: left=200 top=46 right=82 bottom=470
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 2
  35. -- text size: 24
  36. -- style flags: 0
  37. -- line height: 32
  38. -- part name: Title
  39.  
  40.  
  41. -- part 7 (field)
  42. -- low flags: 81
  43. -- high flags: 2004
  44. -- rect: left=95 top=158 right=229 bottom=392
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 2
  49. -- text size: 18
  50. -- style flags: 0
  51. -- line height: 24
  52. -- part name: Info
  53.  
  54.  
  55. -- part 11 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=161 top=45 right=94 bottom=215
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: PleaseButton
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   doButton
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 12 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=406 top=103 right=155 bottom=463
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: CeraButton
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   doButton
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 13 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=415 top=215 right=242 bottom=470
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: StegoButton
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   doButton
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 14 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=306 top=238 right=294 bottom=359
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: HadroButton
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   doButton
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 15 (button)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=35 top=214 right=279 bottom=87
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: CarnoButton
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   doButton
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 16 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=20 top=37 right=149 bottom=106
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: IchtyoButton
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   doButton
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 8 (field)
  170. -- low flags: 80
  171. -- high flags: 0007
  172. -- rect: left=23 top=56 right=283 bottom=498
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 4
  177. -- text size: 9
  178. -- style flags: 0
  179. -- line height: 12
  180. -- part name: Stage 2
  181.  
  182.  
  183. -- part contents for card part 8
  184. ----- text -----
  185. on mouseUp
  186. put the short name of target into buttonName
  187. hide msg
  188. push card
  189. go to stack "Dinosaurs"
  190. get the rect of card button buttonName
  191. choose select tool
  192. drag from (item 1 of it),(item 2 of it) to (item 3 of it),(item 4 of it)
  193. doMenu Copy Picture
  194. pop card
  195. doMenu Paste Picture
  196. doMenu "Transparent"
  197. put the rect of card button buttonName into endRect
  198. drag from (item 1 of it),(item 2 of it) to (item 1 of endRect),(item 2 of endRect)
  199. choose browse tool
  200. put "on mouseUp" into line 1 of newScript
  201. put "visual effect scroll up" into line 2 of newScript
  202. put "go to stack Dinosaurs" into line 3 of newScript
  203. put "end mouseUp" into line 4 of newScript
  204. set the script of card button buttonName to newScript
  205. end mouseUp
  206.  
  207. -- part contents for card part 7
  208. ----- text -----
  209. Stack programmed
  210. by Jon Pugh
  211.